/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / AUTOUUD.ARC / !AutoUUD_lib_File

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 46 69 6c 65 72 0d 00 14 |..... > |Filer...|
|00000010| 18 f4 20 a9 20 4a 61 6d | 65 73 20 42 65 65 63 68 |.. . Jam|es Beech|
|00000020| 20 31 39 39 36 0d 00 1e | 05 3a 0d 00 28 41 85 20 | 1996...|.:..(A. |
|00000030| 32 35 35 2c 22 54 68 69 | 73 20 69 73 20 70 61 72 |255,"Thi|s is par|
|00000040| 74 20 6f 66 20 41 75 74 | 6f 55 55 44 20 61 6e 64 |t of Aut|oUUD and|
|00000050| 20 63 61 6e 6e 6f 74 20 | 62 65 20 72 75 6e 20 6f | cannot |be run o|
|00000060| 6e 20 69 74 27 73 20 6f | 77 6e 22 0d 00 32 05 3a |n it's o|wn"..2.:|
|00000070| 0d 00 3c 20 f4 20 30 3d | 6e 6f 74 20 74 68 65 72 |..< . 0=|not ther|
|00000080| 65 2c 20 31 3d 66 69 6c | 65 2c 20 32 3d 64 69 72 |e, 1=fil|e, 2=dir|
|00000090| 0d 00 46 19 dd 20 a4 66 | 69 6c 65 5f 65 78 69 73 |..F.. .f|ile_exis|
|000000a0| 74 73 28 66 69 6c 65 24 | 29 0d 00 50 09 ea 20 65 |ts(file$|)..P.. e|
|000000b0| 78 25 0d 00 5a 1e c8 99 | 20 22 4f 53 5f 46 69 6c |x%..Z...| "OS_Fil|
|000000c0| 65 22 2c 35 2c 66 69 6c | 65 24 20 b8 20 65 78 25 |e",5,fil|e$ . ex%|
|000000d0| 0d 00 64 08 3d 65 78 25 | 0d 00 6e 05 3a 0d 00 78 |..d.=ex%|..n.:..x|
|000000e0| 16 dd 20 a4 66 69 6c 65 | 5f 6c 65 6e 28 66 69 6c |.. .file|_len(fil|
|000000f0| 65 24 29 0d 00 82 0a ea | 20 6c 65 6e 25 0d 00 8c |e$).....| len%...|
|00000100| 26 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 35 2c |&.. "OS_|File",5,|
|00000110| 66 69 6c 65 24 20 b8 20 | 65 78 25 2c 2c 2c 2c 6c |file$ . |ex%,,,,l|
|00000120| 65 6e 25 0d 00 96 10 e7 | 20 65 78 25 3d 30 20 8c |en%.....| ex%=0 .|
|00000130| 20 3d 30 0d 00 a0 09 3d | 6c 65 6e 25 0d 00 aa 05 | =0....=|len%....|
|00000140| 3a 0d 00 b4 2e f4 20 69 | 66 20 66 61 69 6c 65 64 |:..... i|f failed|
|00000150| 3d 31 2c 20 74 68 65 6e | 20 66 69 6c 65 20 64 69 |=1, then| file di|
|00000160| 64 20 6e 6f 74 20 6d 6f | 76 65 2f 63 6f 70 79 0d |d not mo|ve/copy.|
|00000170| 00 be 1b dd 20 f2 66 69 | 6c 65 5f 6d 6f 76 65 28 |.... .fi|le_move(|
|00000180| 66 72 6f 6d 24 2c 74 6f | 24 29 0d 00 c8 0d ea 20 |from$,to|$)..... |
|00000190| 66 61 69 6c 65 64 25 0d | 00 d2 2e c8 99 20 22 58 |failed%.|..... "X|
|000001a0| 4f 53 5f 46 53 43 6f 6e | 74 72 6f 6c 22 2c 32 35 |OS_FSCon|trol",25|
|000001b0| 2c 66 72 6f 6d 24 2c 74 | 6f 24 20 b8 20 3b 66 61 |,from$,t|o$ . ;fa|
|000001c0| 69 6c 65 64 25 0d 00 dc | 17 66 61 69 6c 65 64 25 |iled%...|.failed%|
|000001d0| 3d 66 61 69 6c 65 64 25 | 20 80 20 31 0d 00 e6 3f |=failed%| . 1...?|
|000001e0| e7 20 66 61 69 6c 65 64 | 25 20 c8 99 20 22 58 4f |. failed|% .. "XO|
|000001f0| 53 5f 46 53 43 6f 6e 74 | 72 6f 6c 22 2c 32 36 2c |S_FSCont|rol",26,|
|00000200| 66 72 6f 6d 24 2c 74 6f | 24 2c 28 31 3c 3c 37 29 |from$,to|$,(1<<7)|
|00000210| 20 b8 20 3b 66 61 69 6c | 65 64 25 0d 00 f0 17 66 | . ;fail|ed%....f|
|00000220| 61 69 6c 65 64 25 3d 66 | 61 69 6c 65 64 25 20 80 |ailed%=f|ailed% .|
|00000230| 20 31 0d 00 fa 05 e1 0d | 01 04 05 3a 0d 01 0e 2b | 1......|...:...+|
|00000240| f4 20 69 73 20 61 20 47 | 45 54 24 23 2c 20 62 75 |. is a G|ET$#, bu|
|00000250| 74 20 65 6e 64 73 20 61 | 74 20 61 20 74 61 62 20 |t ends a|t a tab |
|00000260| 61 73 20 77 65 6c 6c 0d | 01 18 0f dd 20 a4 66 69 |as well.|.... .fi|
|00000270| 6c 65 5f 74 61 62 0d 01 | 22 0e ea 20 74 24 2c 61 |le_tab..|".. t$,a|
|00000280| 25 2c 6c 25 0d 01 2c 0e | 74 24 3d 22 22 3a 6c 25 |%,l%..,.|t$="":l%|
|00000290| 3d 30 0d 01 36 05 f5 0d | 01 40 26 20 20 61 25 3d |=0..6...|.@&  a%=|
|000002a0| 9a 23 66 69 6c 65 25 3a | e7 20 61 25 3e 33 31 20 |.#file%:|. a%>31 |
|000002b0| 74 24 2b 3d bd 61 25 3a | 6c 25 2b 3d 31 0d 01 4a |t$+=.a%:|l%+=1..J|
|000002c0| 14 fd 20 61 25 3c 33 32 | 20 84 20 6c 25 3d 32 35 |.. a%<32| . l%=25|
|000002d0| 36 0d 01 54 07 3d 74 24 | 0d 01 5e 05 3a 0d 01 68 |6..T.=t$|..^.:..h|
|000002e0| 19 f4 20 73 6b 69 70 20 | 74 6f 20 65 6e 64 20 6f |.. skip |to end o|
|000002f0| 66 20 6c 69 6e 65 0d 01 | 72 10 dd 20 f2 66 69 6c |f line..|r.. .fil|
|00000300| 65 5f 73 6b 69 70 0d 01 | 7c 08 ea 20 61 25 0d 01 |e_skip..||.. a%..|
|00000310| 86 05 f5 0d 01 90 10 20 | 20 61 25 3d 9a 23 66 69 |....... | a%=.#fi|
|00000320| 6c 65 25 0d 01 9a 13 fd | 20 61 25 3d 31 30 20 84 |le%.....| a%=10 .|
|00000330| 20 61 25 3d 31 33 0d 01 | a4 05 e1 0d 01 ae 05 3a | a%=13..|.......:|
|00000340| 0d 01 b8 17 dd 20 a4 66 | 69 6c 65 5f 63 6f 75 6e |..... .f|ile_coun|
|00000350| 74 28 64 69 72 24 29 0d | 01 c2 1b ea 20 6c 6f 6f |t(dir$).|.... loo|
|00000360| 70 25 2c 20 74 6f 74 61 | 6c 25 2c 20 6e 6c 6f 6f |p%, tota|l%, nloo|
|00000370| 70 25 0d 01 cc 14 6c 6f | 6f 70 25 3d 30 3a 74 6f |p%....lo|op%=0:to|
|00000380| 74 61 6c 25 3d 30 0d 01 | d6 05 f5 0d 01 e0 3c 20 |tal%=0..|......< |
|00000390| 20 c8 99 20 22 4f 53 5f | 47 42 50 42 22 2c 39 2c | .. "OS_|GBPB",9,|
|000003a0| 64 69 72 24 2c 62 6c 6f | 63 6b 25 2c 31 2c 6c 6f |dir$,blo|ck%,1,lo|
|000003b0| 6f 70 25 2c 26 31 30 30 | 2c 30 20 b8 20 2c 2c 2c |op%,&100|,0 . ,,,|
|000003c0| 2c 6e 6c 6f 6f 70 25 0d | 01 ea 1c 20 20 74 6f 74 |,nloop%.|...  tot|
|000003d0| 61 6c 25 2b 3d 31 3a 6c | 6f 6f 70 25 3d 6e 6c 6f |al%+=1:l|oop%=nlo|
|000003e0| 6f 70 25 0d 01 f4 0e fd | 20 6c 6f 6f 70 25 3d 2d |op%.....| loop%=-|
|000003f0| 31 0d 01 fe 0d 3d 74 6f | 74 61 6c 25 2d 31 0d 02 |1....=to|tal%-1..|
|00000400| 08 05 3a 0d 02 12 05 3a | 0d 02 1c 33 f4 20 2d 2d |..:....:|...3. --|
|00000410| 2d 2d 2d 2d 20 44 69 72 | 65 63 74 6f 72 79 20 73 |---- Dir|ectory s|
|00000420| 63 61 6e 6e 69 6e 67 20 | 66 6f 72 20 64 65 63 6f |canning |for deco|
|00000430| 64 69 6e 67 20 2d 2d 2d | 2d 2d 2d 0d 02 26 05 3a |ding ---|---..&.:|
|00000440| 0d 02 30 1d dd 20 a4 66 | 69 6c 65 5f 66 69 6e 64 |..0.. .f|ile_find|
|00000450| 6f 75 74 28 6f 75 74 5f | 64 69 72 25 29 0d 02 3a |out(out_|dir%)..:|
|00000460| 17 ea 20 74 65 6d 70 24 | 2c 74 65 6d 70 25 2c 6c |.. temp$|,temp%,l|
|00000470| 6f 6f 70 25 0d 02 44 0b | 6c 6f 6f 70 25 3d 31 0d |oop%..D.|loop%=1.|
|00000480| 02 4e 05 f5 0d 02 58 28 | 20 20 e7 20 6f 75 74 5f |.N....X(|  . out_|
|00000490| 64 69 72 25 3c 31 30 20 | 74 65 6d 70 24 3d 22 30 |dir%<10 |temp$="0|
|000004a0| 22 20 8b 20 74 65 6d 70 | 24 3d 22 22 0d 02 62 16 |" . temp|$=""..b.|
|000004b0| 20 20 74 65 6d 70 24 2b | 3d c3 6f 75 74 5f 64 69 |  temp$+|=.out_di|
|000004c0| 72 25 0d 02 6c 31 20 20 | e7 20 a4 66 69 6c 65 5f |r%..l1  |. .file_|
|000004d0| 65 78 69 73 74 73 28 22 | 3c 41 75 74 6f 55 55 44 |exists("|<AutoUUD|
|000004e0| 24 57 6f 72 6b 3e 2e 22 | 2b 74 65 6d 70 24 29 3d |$Work>."|+temp$)=|
|000004f0| 30 20 8c 0d 02 76 1e 20 | 20 20 20 74 6f 74 61 6c |0 ...v. |   total|
|00000500| 5f 66 69 6c 65 73 25 3d | 30 3a 6c 6f 6f 70 25 3d |_files%=|0:loop%=|
|00000510| 30 0d 02 80 29 20 20 20 | 20 c8 99 20 35 2c 22 43 |0...)   | .. 5,"C|
|00000520| 44 69 72 20 3c 41 75 74 | 6f 55 55 44 24 57 6f 72 |Dir <Aut|oUUD$Wor|
|00000530| 6b 3e 2e 22 2b 74 65 6d | 70 24 0d 02 8a 07 20 20 |k>."+tem|p$....  |
|00000540| cc 0d 02 94 39 20 20 20 | 20 74 6f 74 61 6c 5f 66 |....9   | total_f|
|00000550| 69 6c 65 73 25 3d a4 66 | 69 6c 65 5f 63 6f 75 6e |iles%=.f|ile_coun|
|00000560| 74 28 22 3c 41 75 74 6f | 55 55 44 24 57 6f 72 6b |t("<Auto|UUD$Work|
|00000570| 3e 2e 22 2b 74 65 6d 70 | 24 29 0d 02 9e 21 20 20 |>."+temp|$)...!  |
|00000580| 20 20 e7 20 74 6f 74 61 | 6c 5f 66 69 6c 65 73 25 |  . tota|l_files%|
|00000590| 3c 37 30 20 6c 6f 6f 70 | 25 3d 30 0d 02 a8 07 20 |<70 loop|%=0.... |
|000005a0| 20 cd 0d 02 bc 11 20 20 | 6f 75 74 5f 64 69 72 25 | .....  |out_dir%|
|000005b0| 2b 3d 31 0d 02 c6 1b fd | 20 6c 6f 6f 70 25 3d 30 |+=1.....| loop%=0|
|000005c0| 20 84 20 6f 75 74 5f 64 | 69 72 25 3e 37 35 0d 02 | . out_d|ir%>75..|
|000005d0| c7 31 c8 99 20 35 2c 22 | 53 65 74 20 4f 75 74 24 |.1.. 5,"|Set Out$|
|000005e0| 50 61 74 68 20 3c 41 75 | 74 6f 55 55 44 24 57 6f |Path <Au|toUUD$Wo|
|000005f0| 72 6b 3e 2e 22 2b 74 65 | 6d 70 24 2b 22 2e 22 0d |rk>."+te|mp$+".".|
|00000600| 02 c8 2a 63 75 72 72 65 | 6e 74 5f 70 6c 61 63 65 |..*curre|nt_place|
|00000610| 24 3d 22 3c 41 75 74 6f | 55 55 44 24 57 6f 72 6b |$="<Auto|UUD$Work|
|00000620| 3e 2e 22 2b 74 65 6d 70 | 24 0d 02 d0 13 e7 20 6f |>."+temp|$..... o|
|00000630| 75 74 5f 64 69 72 25 3e | 37 35 20 8c 0d 02 da 32 |ut_dir%>|75 ....2|
|00000640| 20 20 f2 77 69 6d 70 5f | 6d 65 73 28 22 41 75 74 |  .wimp_|mes("Aut|
|00000650| 6f 55 55 44 20 4f 75 74 | 20 44 69 72 65 63 74 6f |oUUD Out| Directo|
|00000660| 72 79 20 54 6f 6f 20 46 | 75 6c 6c 21 22 29 0d 02 |ry Too F|ull!")..|
|00000670| e4 3a 20 20 f2 6c 6f 67 | 5f 70 75 74 28 22 41 52 |.:  .log|_put("AR|
|00000680| 52 47 48 21 20 2d 20 43 | 61 6e 6e 6f 74 20 61 64 |RGH! - C|annot ad|
|00000690| 64 20 74 6f 20 74 68 65 | 20 4f 75 74 20 64 69 72 |d to the| Out dir|
|000006a0| 65 63 74 6f 72 79 22 29 | 0d 02 ee 10 20 20 6f 75 |ectory")|....  ou|
|000006b0| 74 5f 64 69 72 25 3d 30 | 0d 02 f8 05 cd 0d 03 03 |t_dir%=0|........|
|000006c0| 0f 3d 6f 75 74 5f 64 69 | 72 25 2d 31 0d 03 0c 05 |.=out_di|r%-1....|
|000006d0| 3a 0d ff                |                         |:..     |        |
+--------+-------------------------+-------------------------+--------+--------+